VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ObjectHolder"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

'ObjectHolder allows an object to be passed as a reference to be
'held by another object when the reference to the target object is not known.
'Later, when the target object is known, it can be given to ObjectHolder
'by calling the Let object() property.

'The holder of the reference to an instance of this class calls the
'Get object() property to finally get a reference to the target object.

Private mObject As Object

Public Property Get object() As Variant
Set object = mObject
End Property

Public Property Let object(ByVal vObject As Variant)
Set mObject = vObject
End Property
